home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / autofind / media / media.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  2.8 KB  |  94 lines  |  [TEXT/ttxt]
  1. --<<<-
  2. module AutofinderMedia
  3. uses ScriptX
  4. end
  5.  
  6. in module AutofinderMedia
  7.  
  8. if (not isDefined MediaImporter) do fileIn theScriptDir name:"mediaimp.sx"
  9.  
  10. -- Create the LibraryContainer to store the media
  11. (
  12. local lib := new LibraryContainer \
  13.         dir:(parentDir theScriptDir) \
  14.         name:"Autofinder Media" \
  15.         path:"media.sxl" \
  16.         mode:@create \
  17.         targetCollection:(new HashTable)
  18. local m := new MediaImporter \
  19.         dir:theScriptDir \
  20.         container: lib \
  21.         smartExtensions: false
  22.  
  23. -- Import all the bitmaps
  24. -- MainMenu Media
  25. importAIFF m "autofind.aif" mediaKey:"music"
  26.  
  27. m.convertToShapes := true
  28. importDIB m "mainmenu.bmp" mediaKey:"Menu Background"
  29.  
  30. m.convertToShapes:= false    
  31. m.invisiblecolor:= blackcolor
  32. importDIB m "mainhi2.bmp" mediaKey:"Main Hilite"
  33. importDIB m "maphi2.bmp" mediaKey:"Map Hilite"
  34. importDIB m "graphhi2.bmp" mediaKey:"Graph Hilite"
  35. importDIB m "classhi2.bmp" mediaKey:"Class Hilite"
  36.  
  37. m.invisiblecolor := undefined
  38. importDIB m "exithi.bmp" mediaKey:"Exit Hilite"
  39.  
  40. m.dir := spawn theScriptDir "hilites"
  41. importDIB m "2doorhi.bmp" mediaKey:"2-Door Hilite"
  42. importDIB m "4doorhi.bmp" mediaKey:"4-Door Hilite"
  43. importDIB m "converhi.bmp" mediaKey:"Convertible Hilite"
  44. importDIB m "sporthi.bmp" mediaKey:"Sports Car Hilite"
  45. importDIB m "utilhi.bmp" mediaKey:"Sport Utility Hilite"
  46. importDIB m "wagonhi.bmp" mediaKey:"Station Wagon Hilite"
  47. importDIB m "5khi.bmp" mediaKey:"5K Hilite"
  48. importDIB m "10khi.bmp" mediaKey:"10K Hilite"
  49. importDIB m "15khi.bmp" mediaKey:"15K Hilite"
  50. importDIB m "1986hi.bmp" mediaKey:"1986 Hilite"
  51. importDIB m "1990hi.bmp" mediaKey:"1990 Hilite"
  52. importDIB m "1993hi.bmp" mediaKey:"1993 Hilite"
  53.  
  54. -- Grapher Media
  55. m.dir := theScriptDir
  56. m.convertToShapes:= true
  57. importDIB m "graph2.bmp" mediaKey:"graph"
  58. m.invisiblecolor := redcolor
  59. importDIB m "menu2.bmp" mediaKey:"menu"
  60. importDIB m "x-axis2.bmp" mediaKey:"xlabel"
  61. importDIB m "y-axis2.bmp" mediaKey:"ylabel"
  62.     
  63. -- Classifieds Media
  64. m.invisiblecolor := undefined
  65. importDIB m "ads.bmp" mediaKey:"bkgndPic"
  66. importDIB m "lefthi.bmp" mediaKey:"left button"
  67. importDIB m "righthi.bmp" mediaKey:"right button"
  68.     
  69. -- Map Media
  70. importDIB m "map.bmp" mediaKey:"map"
  71. importDIB m "detailwn.bmp" mediaKey:"Detail Background"
  72. importDIB m "smmapbtn.bmp" mediaKey:"Map Button"
  73. importDIB m "printbtn.bmp" mediaKey:"Print Button"
  74. importDIB m "notesbtn.bmp" mediaKey:"Notes Button"
  75. importDIB m "carbtn.bmp" mediaKey:"Car Button"
  76. importDIB m "belmont.bmp" mediaKey:"Belmont"
  77. importDIB m "halfmoon.bmp" mediaKey:"Halfmoon Bay"
  78. importDIB m "hillsbro.bmp" mediaKey:"Hillsborough"
  79. importDIB m "redwood.bmp" mediaKey:"Redwood City"
  80. importDIB m "sanmateo.bmp" mediaKey:"San Mateo"
  81. importDIB m "woodside.bmp" mediaKey:"Woodside"
  82.  
  83. m.convertToShapes := false
  84. m.invisiblecolor := blackcolor
  85. importDIB m "pushpin.bmp" mediaKey:"pushpin"
  86. --importDIB m "pinshade.bmp" mediaKey:"pinshade"
  87.     
  88. -- Save everything 
  89. save m     
  90. )
  91.  
  92. "Compiled mainmenu.sx"
  93. -->>>
  94.